home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
util1
/
ed6patch.zip
/
ED6PATCH.BAS
next >
Wrap
BASIC Source File
|
1993-04-01
|
744b
|
22 lines
CLS
PRINT "You should have saved QBASIC.EXE, possibly as QBASIC.SAV."
PRINT "If you have, press Y and enter to continue, any other key to abort."
INPUT "Do you wish to continue"; a$
IF a$ = "Y" OR a$ = "y" THEN
OPEN "qbasic.exe" FOR RANDOM AS #1 LEN = 16
FIELD #1, 5 AS first$, 11 AS last$
GET #1, 11720
name$ = first$
IF name$ <> "*.TXT" THEN 20
name$ = "*.*" + CHR$(0) + CHR$(0)
LSET first$ = name$
PUT #1, 11720
CLS : PRINT "The patch was successful, QBASIC.EXE was changed.": END
20 CLS : PRINT "QBASIC.EXE did not contain the expected *. TXT in the right place."
PRINT "QBASIC.EXE must be from DOS 6.0 and should be 194,309 bytes long."
PRINT "The effort was aborted, no change was made."
ELSE
END IF
END